home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 26
/
026.d81
/
r_s restore
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
500b
|
14 lines
5 printchr$(147);" reading data..."
10 ck=0:poke53281,6:poke53280,14
20 fora=679to715:read d:pokea,d:ck=ck+d:next:poke49153,0
30 if ck<>2921then print"error[146] in data statements"
35 fl$="r/s restore 2":goto50
40 printchr$(147);" load:";:open9,0,0:input#9,fl$:close9
50 printchr$(147);"load"+chr$(34)+fl$+chr$(34)+",80 rem"
60 a$=""+chr$(13)+chr$(13)+"sys689"+chr$(13)
70 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1:clr:new
100 data 169,1,133,204,76,113,168,0,0,0
101 data 169,234,141,40,3,169,167,141
102 data 2,3,141,22,3,141,24,3,169,2
103 data 141,3,3,141,23,3,141,25,3